home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs18.d81 / fliviewr.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  82 lines
  1. 10 POKE53281,0:POKE53280,0
  2. 20 POKE55,0:POKE56,60:CLR
  3. 30 POKE53272,23
  4. 40 DIMF$(75),B$(75):NU$=CHR$(0)
  5. 50 PRINT"[147][158]      [198][204][201] [208]IC-[214]IEW - [214]ERSION 1.0"
  6. 60 PRINT"  [156][194]Y [210]OSS [203]INARD  ([209][204]INK: [211]KUL[204]EADER)"
  7. 70 PRINT"     [208]RESS [211][208][193][195][197] TO READ DIRECTORY"
  8. 80 GETZ$:IFZ$=""THEN80
  9. 90 IFZ$=" "THEN110
  10. 100 GOTO80
  11. 110 PRINT"            [210]EADING...."
  12. 120 OPEN3,8,0,"$0":POKE781,3:SYS65478:GETA$,A$
  13. 130 GETA$,A$:IFA$=""THEN190
  14. 140 GETA$,B$:C$=STR$(ASC(A$+NU$)+ASC(B$+NU$)*256)
  15. 150 IFC$=" 0"THEN170
  16. 160 IFC$<>" 68"THEN130
  17. 170 GETA$:IFA$=""THENN=N+1:GOTO130
  18. 180 F$(N)=F$(N)+A$:GOTO170
  19. 190 CLOSE3:SYS65484
  20. 200 PRINT"[147][158]      [198][204][201] [208]IC-[214]IEW - [214]ERSION 1.0"
  21. 210 PRINT"[155][196][201][211][203]:[152]"MID$(F$(0),2)
  22. 220 PRINT
  23. 230 C=N
  24. 240 IFC>15THEN360
  25. 250 S=1:E=C
  26. 260 FORI=1TOC:IFMID$(F$(I),3,1)<>CHR$(34)THENF$(I)=MID$(F$(I),2)
  27. 270 NEXTI
  28. 280 FORI=97TO111:PRINT""CHR$(I)".":NEXTI
  29. 290 PRINT""
  30. 300 FORI=STOE
  31. 310 IFMID$(F$(I),3,1)<>CHR$(34)THENF$(I)="                        "
  32. 320 PRINT"[159]"F$(I)
  33. 330 NEXTI
  34. 340 PRINT""
  35. 350 GOTO370
  36. 360 S=1:E=15:GOTO260
  37. 370 PRINT"[153][211]ELECT [208]ICTURE ([193]-[207]) OR HIT (+) FOR"
  38. 380 PRINT"NEXT PAGE, (-) FOR PREVIOUS PAGE,"
  39. 390 PRINT"[211][208][193][195][197] FOR NEW DISK, OR ([209]) TO [209]UIT"
  40. 400 GETZ$:IFZ$=""THEN400
  41. 410 IFZ$="+"THEN470
  42. 420 IFZ$="-"THEN500
  43. 430 IFZ$=" "THENRUN
  44. 440 IFZ$="Q"THENPRINT"[147][159][210][213][206] TO [210]ESTART":STOP
  45. 450 IFASC(Z$)<65ORASC(Z$)>79THEN400
  46. 460 GOTO520
  47. 470 IFS+15>CTHEN400
  48. 480 S=S+15:E=E+15
  49. 490 PRINT"":GOTO300
  50. 500 IFS-15<1THENS=1:E=15:PRINT"":GOTO300
  51. 510 S=S-15:E=E-15:PRINT"":GOTO300
  52. 520 X$="":V=ASC(Z$):V=V-64
  53. 530 SN=(S-1)+V:IFSN>CTHEN400
  54. 540 PRINT"[147][154][211]ELECTED:[158]"F$(SN)
  55. 550 PRINT"[159][201]S THIS CORRECT? [217]/[206]"
  56. 560 GETZ$:IFZ$=""THEN560
  57. 570 IFZ$="Y"THEN590
  58. 580 GOTO200
  59. 590 P=4
  60. 600 Y$=MID$(F$(SN),P,1)
  61. 610 IFY$=CHR$(34)THEN630
  62. 620 X$=X$+Y$:P=P+1:GOTO600
  63. 630 IFMID$(X$,1,1)=CHR$(129)THEN670
  64. 640 PRINT"[204]OADING [208]ICTURE..."
  65. 650 SYS 4355,X$,8,0,15360
  66. 660 GOTO690
  67. 670 PRINT"[204]OADING [208]ICTURE..."
  68. 680 REM LOAD KOALA
  69. 690 REM **MANIPULATE BITMAP**
  70. 700 PRINT"[156][208]RESS [211][208][193][195][197] WHILE VIEWING TO "
  71. 710 PRINT"RETURN TO THE MENU"
  72. 720 PRINT"[208]RESS ANY KEY TO VIEW"
  73. 730 REM T"[195]ONTINUE PROCESS? [217]/[206]"
  74. 740 GETZ$:IFZ$=""THEN740
  75. 750 SYS 3902
  76. 760 GETZ$:IFZ$=""THEN760
  77. 770 IFZ$=" "THEN790
  78. 780 GOTO760
  79. 790 SYS 4269
  80. 795 POKE53272,23
  81. 800 GOTO200
  82.